home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / perl5a1.lha / perl5alpha1 / atarist / usub / usersub.c < prev   
Encoding:
C/C++ Source or Header  |  1992-08-08  |  655 b   |  31 lines
  1. /* $RCSfile: usersub.c,v $$Revision: 4.1 $$Date: 92/08/07 17:19:07 $
  2.  *
  3.  * $Log:    usersub.c,v $
  4.  * Revision 4.1  92/08/07  17:19:07  lwall
  5.  * Stage 6 Snapshot
  6.  * 
  7.  * Revision 4.0.1.1  92/06/08  11:54:52  lwall
  8.  * Initial revision
  9.  * 
  10.  * Revision 4.0.1.1  91/11/05  19:07:24  lwall
  11.  * patch11: there are now subroutines for calling back from C into Perl
  12.  * 
  13.  * Revision 4.0  91/03/20  01:56:34  lwall
  14.  * 4.0 baseline.
  15.  * 
  16.  * Revision 3.0.1.1  90/08/09  04:06:10  lwall
  17.  * patch19: Initial revision
  18.  * 
  19.  */
  20.  
  21. #include "EXTERN.h"
  22. #include "perl.h"
  23.  
  24. int
  25. userinit()
  26. {
  27.     install_null();    /* install device /dev/null or NUL: */
  28.     init_curses();
  29.     return 0;
  30. }
  31.